

DEFINE VARIABLE part LIKE pt_part.
DEFINE VARIABLE grp LIKE pt_dsgn_grp.

DEFINE VARIABLE qty LIKE ro_run .

DEFINE VARIABLE p1 AS CHARACTER FORMAT "x(24)".
DEFINE VARIABLE p2 AS CHARACTER FORMAT "x(24)".
DEFINE VARIABLE p3 AS CHARACTER FORMAT "x(24)".
DEFINE VARIABLE p4 AS CHARACTER FORMAT "x(24)".
DEFINE VARIABLE p5 AS CHARACTER FORMAT "x(24)".




DEFINE STREAM bf .

    INPUT FROM VALUE("c:\k3.csv").   

    REPEAT ON ERROR UNDO, LEAVE WITH STREAM-IO WIDTH 132 :   

    IMPORT DELIMITER "," p1 p2 p3 p4 p5 .

    /* DISP p1 p2 p3 p4 p5  . */

    CREATE acf_mstr.
    ASSIGN
        acf_acct = TRIM(p4)
        acf_vend = TRIM(p3)
        acf_u8ac = TRIM(p1)
        acf_user1 = TRIM(p2)
        .

        
END.
